100 !SC,2:!CO,208:!PN,1:POKE53280,0
105 FORX=0TO319STEP5:!DR,X,100-COS(X/50)*60,319-X,100+COS(X/50)*100:NEXT
110 GOSUB230
115 !SC,2:!CO,18:POKE53280,2
120 FORX=0TO280STEP4:!DR,X,100+SIN(X/50)*100,319-X,100+COS(X/25)*50:NEXT
125 GOSUB230
130 !SC,2:!CO,97:POKE53280,1
135 FORX=0TO315STEP4:!DR,X,100+SIN(X/50)*40,319-X,100+SIN(X/50)*100:NEXT
140 GOSUB230
145 !SC,2:!CO,16:POKE53280,0
150 FORI=0TO319STEP2:!DR,160,100,I,100+COS(I)*100:NEXT
155 GOSUB230
160 FORI=0TO24
165 C=INT(RND(0)*16)*16:IFC=0THEN165
170 FORJ=0TO40:!BL,J+I*40,C:NEXT:NEXT
175 GOSUB230
180 !SC,2:!CO,219:POKE53280,11
185 FORI=0TO315STEP4:!DR,I,130+ABS(SIN(I/50)*50),319-I,9+ABS(SIN(I/50)*50):NEXT
190 GOSUB230
195 !SC,2:!CO,114:POKE53280,2
200 POKE50251,11:FORN=0TO8:POKE50243,N:!CR,160,100,122:NEXT
205 GOSUB230
210 !SC,2:!CO,110:POKE53280,14
215 FORI=0TO315STEP4
216 !DR,319-I,100-ABS(SIN(I/50)*100),I,100+ABS(SIN(I/50)*100):NEXT
220 GOSUB230
225 !SC,0:POKE53280,14:END
230 GETA$:IFA$=""THEN230
235 IFA$="[133]"THEN225
240 RETURN